#!/usr/bin/env perl

use utf8;
use strict;

my $sample = "Hello there,my dear neighor";

if($sample =~ /\s([a-zA-Z]+)\s/){
	print "Match the word is $1\n";
}

if($sample =~ /(\S+) (\S+),(\S+)/){
	print "Match the word is $1 $2 $3\n";
}
